home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Interfaces / UniversalInterfaces 2.1B1 / AIncludes / CTBUtilities.a < prev    next >
Encoding:
Text File  |  1995-04-18  |  3.9 KB  |  159 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        CTBUtilities.a
  3. ;
  4. ;    Contains:    Communications Toolbox Utilities interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Package:    Universal Interfaces 2.1ß1 in “MPW Prerelease” on ETO #17
  8. ;
  9. ;    Copyright:    © 1984-1995 by Apple Computer, Inc.
  10. ;                All rights reserved.
  11. ;
  12. ;    Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13. ;                stack.  Include the file and version information (from above)
  14. ;                in the problem description and send to:
  15. ;                    Internet:    apple.bugs@applelink.apple.com
  16. ;                    AppleLink:    APPLE.BUGS
  17. ;
  18. ;
  19.  
  20.     IF &TYPE('__CTBUTILITIES__') = 'UNDEFINED' THEN
  21. __CTBUTILITIES__ SET 1
  22.  
  23.  
  24.     IF &TYPE('__MEMORY__') = 'UNDEFINED' THEN
  25.     include 'Memory.a'
  26.     ENDIF
  27. ;        include 'Types.a'                                            ;
  28. ;            include 'ConditionalMacros.a'                            ;
  29. ;        include 'MixedMode.a'                                        ;
  30.  
  31.     IF &TYPE('__DIALOGS__') = 'UNDEFINED' THEN
  32.     include 'Dialogs.a'
  33.     ENDIF
  34. ;        include 'Errors.a'                                            ;
  35. ;        include 'Windows.a'                                        ;
  36. ;            include 'Quickdraw.a'                                    ;
  37. ;                include 'QuickdrawText.a'                            ;
  38. ;            include 'Events.a'                                        ;
  39. ;                include 'OSUtils.a'                                ;
  40. ;            include 'Controls.a'                                    ;
  41. ;                include 'Menus.a'                                    ;
  42. ;        include 'TextEdit.a'                                        ;
  43.  
  44.     IF &TYPE('__STANDARDFILE__') = 'UNDEFINED' THEN
  45.     include 'StandardFile.a'
  46.     ENDIF
  47. ;        include 'Files.a'                                            ;
  48.  
  49.     IF &TYPE('__APPLETALK__') = 'UNDEFINED' THEN
  50.     include 'AppleTalk.a'
  51.     ENDIF
  52.  
  53. ;    version of Comm Toolbox Utilities    
  54. curCTBUVersion                    EQU        2
  55. ;    Error codes/types    
  56. ctbuGenericError                EQU        -1
  57. ctbuNoErr                        EQU        0
  58.  
  59. ; typedef OSErr             CTBUErr
  60.  
  61. chooseDisaster                    EQU        -2
  62. chooseFailed                    EQU        -1
  63. chooseAborted                    EQU        0
  64. chooseOKMinor                    EQU        1
  65. chooseOKMajor                    EQU        2
  66. chooseCancel                    EQU        3
  67.  
  68. ; typedef unsigned short     ChooseReturnCode
  69.  
  70. nlOk                            EQU        0
  71. nlCancel                        EQU        1
  72. nlEject                            EQU        2
  73.  
  74. ; typedef unsigned short     NuLookupReturnCode
  75.  
  76. nameInclude                        EQU        1
  77. nameDisable                        EQU        2
  78. nameReject                        EQU        3
  79.  
  80. ; typedef unsigned short     NameFilterReturnCode
  81.  
  82. zoneInclude                        EQU        1
  83. zoneDisable                        EQU        2
  84. zoneReject                        EQU        3
  85.  
  86. ; typedef unsigned short     ZoneFilterReturnCode
  87.  
  88. ;    Values for hookProc items        
  89. hookOK                            EQU        1
  90. hookCancel                        EQU        2
  91. hookOutline                        EQU        3
  92. hookTitle                        EQU        4
  93. hookItemList                    EQU        5
  94. hookZoneTitle                    EQU        6
  95. hookZoneList                    EQU        7
  96. hookLine                        EQU        8
  97. hookVersion                        EQU        9
  98. hookReserved1                    EQU        10
  99. hookReserved2                    EQU        11
  100. hookReserved3                    EQU        12
  101. hookReserved4                    EQU        13
  102. ;    "virtual" hookProc items    
  103. hookNull                        EQU        100
  104. hookItemRefresh                    EQU        101
  105. hookZoneRefresh                    EQU        102
  106. hookEject                        EQU        103
  107. hookPreflight                    EQU        104
  108. hookPostflight                    EQU        105
  109. hookKeyBase                        EQU        1000
  110.  
  111. ;    NuLookup structures/constants    
  112. NLTypeEntry             RECORD    0
  113. hIcon                     ds.l   1        ; offset: $0 (0)
  114. typeStr                     ds.b   33        ; offset: $4 (4)
  115.                          ORG 38
  116. sizeof                     EQU *            ; size:   $26 (38)
  117.                         ENDR
  118.  
  119. ; typedef struct NLTypeEntry  NLTypeEntry
  120. ; typedef NLTypeEntry         NLType[4]
  121. NBPReply                 RECORD    0
  122. theEntity                 ds     EntityName ; offset: $0 (0)
  123. theAddr                     ds     AddrBlock ; offset: $66 (102)
  124. sizeof                     EQU *            ; size:   $6A (106)
  125.                         ENDR
  126.  
  127. ; typedef struct NBPReply     NBPReply
  128. ;
  129. ; pascal CTBUErr InitCTBUtilities(void)
  130. ;
  131.     IF GENERATINGCFM THEN
  132.         IMPORT_CFM_FUNCTION    InitCTBUtilities
  133.     ENDIF
  134.  
  135. ;
  136. ; pascal short CTBGetCTBVersion(void)
  137. ;
  138.     IF GENERATINGCFM THEN
  139.         IMPORT_CFM_FUNCTION    CTBGetCTBVersion
  140.     ENDIF
  141.  
  142. ;
  143. ; pascal short StandardNBP(Point where, ConstStr255Param prompt, short numTypes, NLType typeList, NameFilterUPP nameFilter, ZoneFilterUPP zoneFilter, DialogHookUPP hook, NBPReply *theReply)
  144. ;
  145.     IF GENERATINGCFM THEN
  146.         IMPORT_CFM_FUNCTION    StandardNBP
  147.     ENDIF
  148.  
  149. ;
  150. ; pascal short CustomNBP(Point where, ConstStr255Param prompt, short numTypes, NLType typeList, NameFilterUPP nameFilter, ZoneFilterUPP zoneFilter, DialogHookUPP hook, long userData, short dialogID, ModalFilterUPP filter, NBPReply *theReply)
  151. ;
  152.     IF GENERATINGCFM THEN
  153.         IMPORT_CFM_FUNCTION    CustomNBP
  154.     ENDIF
  155.  
  156.     IF OLDROUTINENAMES  THEN
  157.     ENDIF
  158.     ENDIF ; __CTBUTILITIES__
  159.